home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / patch / phonepak_25_1.lha / PhonePak_2.5InstallGVPPatch < prev    next >
Encoding:
Text File  |  1994-06-01  |  2.4 KB  |  59 lines
  1. ; PhonePak VFX/GVPPatch Installation Script
  2. ; $VER: GVPPatch Install 2.5 (01 Jun 1994)
  3. ;
  4.  
  5. ; Written for use with Commodore's Installer.
  6.  
  7. (set phonepak "PhonePak_2.5:")
  8.  
  9. ; ====================
  10. ; Make sure the user really wants to install this patch...
  11. ;
  12.  
  13. (message "This installation should only be performed if you are experiencing "
  14.          "data dropout when recording audio or receiving faxes with your "
  15.          "PhonePak, and you are using a GVP DMA hard disk controller (such "
  16.          "as a Series-II hard card, a Combo accelerator, or a G-Force "
  17.          "accelerator).\n\n"
  18.          "If you are not experiencing any data dropout, or are not "
  19.          "using one of the above mentioned hard disk controllers, it "
  20.          "is not necessary to install this patch.\n\n")
  21.  
  22. (if (askbool (prompt "Do you understand, and wish to proceed with the "
  23.                      "installation of the GVPPatch program?")
  24.              (help "Please read the GVPPatch.Readme file supplied for more "
  25.                    "information.")
  26.              (choices "Yes" "No"))
  27.     (
  28.       (copyfiles (source (tackon phonepak "GVPPatch"))
  29.                  (dest "C:"))
  30.                  
  31. ; Set up the default dest so the user isn't confused.
  32.       (set @default-dest "C:")
  33.       
  34. ; Ready an error message if we can't perform the modification
  35.       (onerror (message "Sorry, but either your startup-sequence was missing, "
  36.                         "or it is too non-standard for the Installer program to "
  37.                         "understand. You will have to make this modification "
  38.                         "by hand.\n\n"
  39.                         "To have the GVPPatch program run at startup, add the "
  40.                         "following line to your S:User-Startup or "
  41.                         "Startup-Sequence:\n\n"
  42.                         "Run >NIL: GVPPatch -sPhonePak.device")
  43.                (exit))
  44.                
  45. ;Try to modify the startup
  46.       (startup "PhonePak VFX/GVPPatch"
  47.                (prompt "Is it OK to modify your startup to run the GVPPatch "
  48.                        "program when you boot?")
  49.                (help "For this program to be useful, it should be run in your "
  50.                      "User-Startup or Startup-Sequence.\n\n"
  51.                      @startup-help)
  52.                (command ("Run >NIL: GVPPatch -sPhonePak.device")))
  53.     )
  54.     (
  55.       (message "Aborting installation of the GVPPatch program.")
  56.       (exit (quiet))
  57.     )
  58. )
  59.